* lisp/calc/calc-ext.el (math-equal-int): Work for bignums.

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index f4ddb840b50a141e08c8cb46e012f58bc875ac88..24781ed6c86c9b56db17dd9a917ebf50ad8993f9 100644 (file)
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -2565,9 +2565,9 @@ If X is not an error form, return 1."
 ;;; True if A is numerically equal to the integer B.  [P N S] [Public]
 ;;; B must not be a multiple of 10.
 (defun math-equal-int (a b)
-  (or (eq a b)
+  (or (eql a b)
       (and (eq (car-safe a) 'float)
-          (eq (nth 1 a) b)
+          (eql (nth 1 a) b)
           (= (nth 2 a) 0))))